home *** CD-ROM | disk | FTP | other *** search
- unit ImportU;
-
- interface
-
- function Power(X, Y: Double): Double;
-
- implementation
-
- { 16-bit OS require _no_ extension in import declaration }
- { 32-bit: NT requires extension, Win95 doesn't mind }
- const
- DLLName = 'DLL'{$ifdef Win32}+'.DLL'{$endif};
-
- { 16-bit apps typically link by number }
- { 32-bit apps typically link by name }
-
- function Power(X, Y: Double): Double;
- external DLLName {$ifdef Win32}name 'Pow'{$else}index 1{$endif};
-
- end.
-